home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 29
/
029.d81
/
connect boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
620b
|
18 lines
0 rem connect boot
5 ifx=0thenx=1:load"unpacker",8,1
6 ifx=1thenx=2:load"connect.title.shp",8,1
7 ifx=2thenx=3:load"hi-res text.o",8,1
10 poke249,224:poke250,204: rem screen/color
20 poke251,0:poke252,64: rem shp buffer
30 poke253,0:poke254,0: rem x-pos,y-pos
35 poke53281,0: rem border to white
50 sys51456: rem unpack normal shp
60 sys51459: rem show screen
70 f$="connectoids":rem file to load & run
75 p$=chr$(34)+"press any key"+chr$(34): t$="sys50759,"+p$+",14*8,24*8"
76 poke646,peek(53281)
80 print"[147]loadf$,8"
81 print""t$;
82 print":poke198,0:wait198,1:sys51459:run"
83 poke631,13:poke632,13:poke198,2:end